home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.12 Dec 89 / LISP sources / listing 04 < prev    next >
Encoding:
Text File  |  1988-10-23  |  343 b   |  24 lines  |  [TEXT/CCL ]
  1. Welcome to Allegro CL Version 1.2!
  2. ? 
  3. TOWEROFHANOI
  4. NIL
  5. EXIST
  6. HANOI
  7. MOVEDISK
  8. MOVETOWER
  9. ADDFIRST
  10. GETANDREMOVEFIRST
  11. ? (setf toh (oneOf towerOfHanoi))
  12. #<Object #252, a TOWEROFHANOI>
  13. ? (ask toh (Hanoi))
  14. Please type the number of disks in the tower: 3
  15. tower of Hanoï for 3 disks.
  16. 1 -> 3 A
  17. 1 -> 2 B
  18. 3 -> 2 A
  19. 1 -> 3 C
  20. 2 -> 1 A
  21. 2 -> 3 B
  22. 1 -> 3 A
  23. NIL
  24. ?